home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / source / docs / refex / ex53.pp < prev    next >
Encoding:
Text File  |  2000-01-01  |  392 b   |  21 lines
  1. Program Example53;
  2.  
  3. { Program to demonstrate the MkDir and RmDir functions. }
  4.  
  5. Const D : String[8] = 'TEST.DIR';
  6.  
  7. Var S : String;
  8.  
  9. begin
  10.   Writeln ('Making directory ',D);
  11.   Mkdir (D);
  12.   Writeln ('Changing directory to ',D);
  13.   ChDir (D);
  14.   GetDir (0,S);
  15.   Writeln ('Current Directory is : ',S);
  16.   WRiteln ('Going back');
  17.   ChDir ('..');
  18.   Writeln ('Removing directory ',D);
  19.   RmDir (D);
  20. end.
  21.